home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / smurf.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-03  |  4.1 KB  |  145 lines
  1. 10  SCREEN 0,0,0:COLOR 2,8,0:KEY OFF:CLS:LOCATE ,,0
  2. 20  LOCATE 11,16:PRINT "Due to my strong personal convictions, this cartoon"
  3. 30  LOCATE 12,16:PRINT "in no way endorses my belief in the occult."
  4. 40  LOCATE 13,60:PRINT "SOUNDSOUNDTim Long"
  5. 50  FOR T=1 TO 2500:NEXT T
  6. 60  CLS
  7. 70  LOCATE 1,5:COLOR 4:PRINT" The Quad proudly presents another feature...."
  8. 80  FOR T=1 TO 2000:NEXT T
  9. 90  CLS
  10. 100  FOR X=1 TO 78
  11. 110  LOCATE 12,X:COLOR 7,8,0:PRINT"SOUND"
  12. 120  LOCATE 14,X:PRINT "SOUND"
  13. 130  LOCATE 15,X:COLOR 2,8,0:PRINT "THEN"
  14. 140  LOCATE 22,X:COLOR 1,8,0:PRINT "CSRLIN"
  15. 150  LOCATE 23,X:COLOR 1,8,0:PRINT "CSRLIN";
  16. 160  LOCATE 24,X:COLOR 1,8,0:PRINT "CSRLIN";
  17. 170  LOCATE 25,X:COLOR 1,8,0:PRINT "CSRLIN";
  18. 180  NEXT X
  19. 190  LOCATE 21,70:PRINT CHR$(25)+"The Blue"
  20. 200  LOCATE 1:PRINT "Here is our hero strolling down a quiet sunny street."
  21. 210  PRINT "When suddenly out of the blue comes......"
  22. 220  FOR X=2 TO 35
  23. 230  LOCATE 13,X:COLOR 4:PRINT "-"
  24. 240  LOCATE 13,X-1:PRINT " "
  25. 250  SOUND 100,0.6:SOUND 200,0.6:SOUND 300,0.6:SOUND 50,1.4:SOUND 1000,1.4
  26. 260  NEXT X
  27. 270  S=50
  28. 280  FOR X=24 TO 21 STEP -1
  29. 290  LOCATE X,40:COLOR 2:PRINT "<";
  30. 300  LOCATE X+1,40:COLOR 1:PRINT "CSRLIN";
  31. 310  SOUND S,2:SOUND 2000,2
  32. 320  S=S+50:NEXT X
  33. 330  FOR X=20 TO 13 STEP -1
  34. 340  LOCATE X,40:COLOR 2:PRINT "<";
  35. 350  LOCATE X+1,40:PRINT " "
  36. 360  SOUND S,2:SOUND 2000,2
  37. 370  S=S+50:NEXT X
  38. 380  LOCATE 15,40:COLOR 2:PRINT "THEN"
  39. 390  LOCATE 14,40:COLOR 7:PRINT "SOUND"
  40. 400  LOCATE 11,40:PRINT "I want your wallet!"
  41. 410  FOR T=1 TO 1000:NEXT T
  42. 420  LOCATE 11,9:PRINT "No way, Dude! Catch me first!"
  43. 430  FOR T=1 TO 1000:NEXT T
  44. 440  LOCATE 1:COLOR 3:PRINT "And with blinding speed our hero leaves the scene.             "
  45. 450  LOCATE 2,1:PRINT "                                                 "
  46. 460  FOR T=1 TO 1000:NEXT T
  47. 470  LOCATE 11,9:PRINT "                                                       "
  48. 480  FOR X=34 TO 1 STEP -1
  49. 490  LOCATE 13,X:COLOR 4:PRINT "-"
  50. 500  LOCATE 13,X+1:PRINT " "
  51. 510  SOUND 100,0.2:SOUND 200,0.2:SOUND 300,0.2:SOUND 50,0.6:SOUND 1000,0.6
  52. 520  NEXT X
  53. 530  LOCATE 13,1:PRINT " "
  54. 540  LOCATE 11,40:COLOR 7:PRINT "Hey come back here you slimeball!"
  55. 550  FOR T=1 TO 1000:NEXT T
  56. 560  FOR X=39 TO 1 STEP -1
  57. 570  LOCATE 13,X:COLOR 2:PRINT "<"
  58. 580  LOCATE 13,X+1:PRINT " "
  59. 590  SOUND 50,2:SOUND 100,1
  60. 600  NEXT X
  61. 610  LOCATE 13,1:PRINT " "
  62. 620  LOCATE 11,40:PRINT"                                   "
  63. 630  FOR X=1 TO 25
  64. 640  LOCATE X,1:PRINT SPACE$(79)+" ";
  65. 650  NEXT X
  66. 660  COLOR 4,8,0:CLS
  67. 670  PRINT "And thus begins another exciting day in the life of......."
  68. 680  FOR T=1 TO 1200:NEXT T
  69. 690  COLOR 2,8,0:PRINT:PRINT:PRINT:PRINT:PRINT
  70. 700  PLAY "MBL16T155":PLAY "o2mnb4p8msbbmnb4p8msbbb8g#8e8g#8b8g#8b8o3e8o2b8g#8e8g#8b8g#8o3e8o2mnb4p8msbbmnb4p8o1msbbmnb4"
  71. 710  PRINT TAB(9)"CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  72. 720  PRINT TAB(9)"CSRLINCSRLIN      CSRLINCSRLIN  CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN  CSRLINCSRLIN          CSRLINCSRLIN           CSRLINCSRLIN      CSRLINCSRLIN
  73. 730  PRINT TAB(9)"CSRLINCSRLIN      CSRLINCSRLIN  CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLIN     CSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  74. 740  PRINT TAB(9)"CSRLINCSRLIN      CSRLINCSRLIN  CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN  CSRLINCSRLIN          CSRLINCSRLIN      CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN"
  75. 750  PRINT TAB(9)"CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN"
  76. 760  PRINT:PRINT:COLOR 1,8,0
  77. 770  PRINT TAB(20)"CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  78. 780  PRINT TAB(20)"CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN"
  79. 790  PRINT TAB(20)"CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN"
  80. 800  PRINT TAB(20)"CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN"
  81. 810  PRINT TAB(20)"CSRLINCSRLIN   CSRLIN   CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN   CSRLINCSRLIN      CSRLINCSRLIN"
  82. 820  FOR T=1 TO 3000:NEXT T
  83. 830  CLS:PLAY "MFT155"
  84. 840  FOR X=79 TO 1 STEP -1
  85. 850  LOCATE 14,X:COLOR 7:PRINT "SOUND"
  86. 860  LOCATE 16,X:COLOR 14:PRINT "THEN"
  87. 870  LOCATE 18,X:COLOR 7:PRINT "SOUND"
  88. 880  NEXT X
  89. 890  Y=2
  90. 900  FOR X=79 TO 50 STEP -1
  91. 910  LOCATE 15,X:COLOR 4:PRINT "-"
  92. 920  LOCATE 15,X+1:PRINT " "
  93. 930  SOUND 100,0.2:SOUND 200,0.2:SOUND 300,0.2:SOUND 50,0.6:SOUND 100,0.6
  94. 940  LOCATE 15,Y:COLOR 1:PRINT "oSOUNDSOUNDSOUND\o"
  95. 950  LOCATE 15,Y-1:PRINT " "
  96. 960  SOUND 50,2:SOUND 32767,0:SOUND 400,1
  97. 970  Y=Y+1:NEXT X
  98. 980  LOCATE 13,50:PRINT "Ah, My car!"
  99. 990  FOR T=1 TO 1000:NEXT T
  100. 1000  FOR X=49 TO 37 STEP-1
  101. 1010  LOCATE 15,X:COLOR 4:PRINT "-"
  102. 1020  LOCATE 15,X+1:PRINT " "
  103. 1030  SOUND 100,0.4:SOUND 200,0.4:SOUND 300,0.4:SOUND 50,1.2:SOUND 1000,1.2
  104. 1040  NEXT X
  105. 1050  LOCATE 15,37:PRINT " "
  106. 1060  LOCATE 13,50:PRINT "           "
  107. 1070  COLOR 1
  108. 1080  FOR X=31 TO 1 STEP -1
  109. 1090  LOCATE 15,X:PRINT "o/SOUNDSOUNDSOUNDo"
  110. 1100  LOCATE 15,X+6:PRINT " "
  111. 1110  SOUND 50,2:SOUND 32767,0:SOUND 400,1.4
  112. 1120  NEXT X
  113. 1130  LOCATE 15,1:PRINT "      "
  114. 1140  COLOR 7:LOCATE 12,40:PRINT "Hey Wimp! Always running away huh?"
  115. 1150  COLOR 2
  116. 1160  FOR X=79 TO 40 STEP -1
  117. 1170  LOCATE 15,X:PRINT "<"
  118. 1180  LOCATE 15,X+1:PRINT " "
  119. 1190  SOUND 50,1:SOUND 100,2
  120. 1200  NEXT X
  121. 1210  LOCATE 12,40:PRINT SPACE$(39)
  122. 1220  LOCATE 13,1:COLOR 7:PRINT"COME TO THINK OF IT.....":COLOR 1
  123. 1230  FOR X=2 TO 36
  124. 1240  LOCATE 15,X:PRINT "oSOUNDSOUNDSOUND\o"
  125. 1250  LOCATE 15,X-1:PRINT " "
  126. 1260  SOUND 50,1:SOUND 32767,0:SOUND 4000,0.7
  127. 1270  NEXT X
  128. 1280  S=500
  129. 1290  FOR X=1 TO 10
  130. 1300  COLOR 8,7:CLS:SOUND S,1.5
  131. 1310  COLOR 7,4:CLS:SOUND S-10,1.5
  132. 1320  COLOR 7,8:CLS:SOUND S-20,1.5
  133. 1330  S=S-30
  134. 1340  NEXT X
  135. 1350  COLOR 7,8,0:CLS
  136. 1360  PRINT "This is one way to stop a person from harrasing you,"
  137. 1370  PRINT "Although its not very legal in some states."
  138. 1380  COLOR 2
  139. 1390  LOCATE 20,20:PRINT"This has been a fine QUAD Presentation...Watch for more"
  140. 1400  LOCATE 21,20:PRINT"Call Tim Long (DATA) at (301)-365-0991
  141. 1410  LOCATE 22,20:PRINT"Call Shane Oneill (DATA) at (703)-569-6747
  142. 1420  COLOR 14:LOCATE 12,20:PRINT TAB(20)"Press any key to end presentation."
  143. 1430  IF INKEY$="" THEN 1430
  144. 1440  COLOR 7,8,0:CLS:END
  145.